﻿Module Module1

    Sub Main()
        Dim p As New People With {.Name = "aaa", .Sex = "Man"}
        Console.WriteLine(LSW.Extension.LSWFormat("Name:{Name},Sex:{Sex}", p))
        Console.Read()
    End Sub

End Module

Class People
    Private nameval As String
    Public Property Name() As String
        Get
            Return nameval
        End Get
        Set(ByVal value As String)
            nameval = value
        End Set
    End Property

    Private sexval As String
    Public Property Sex() As String
        Get
            Return sexval
        End Get
        Set(ByVal value As String)
            sexval = value
        End Set
    End Property
End Class